-- card: 3977 from stack: in.k_4
-- bmap block id: 3689
-- flags: 0000
-- background id: 2594
-- name: 
----- HyperTalk script -----
on openCard
  global playWhat
  set hilite of button ID 4 to TRUE
  set hilite of button ID 5 to FALSE
  set hilite of button ID 6 to FALSE
  set hilite of button ID 7 to FALSE
  set hilite of button ID 8 to FALSE
  set hilite of button ID 9 to FALSE
  set hilite of button ID 10 to FALSE
  set hilite of button ID 11 to FALSE
  set hilite of button ID 12 to FALSE
  set hilite of button ID 13 to FALSE
  set hilite of button ID 20 to FALSE
  set hilite of button ID 21 to FALSE
  put "Beat" into playWhat
  put quote before playWhat
  put quote after playWhat
end openCard


-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=53 top=74 right=150 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Keys
----- HyperTalk script -----
on mouseUp
  global playWhat
  put playWhat into how
  put " tempo 25" after how
  get the clickloc
  put item 1 of it into noteNum
  put 1 + (noteNum - 52) DIV 13 into noteNum
  put "36 38 40 41 43 45 47 48 50 52 53 55 57 59 60 62" && "64 65 67 69 71 72 74 76 77 79 81 83" into keymap
  put word noteNum of keymap into realNote
  put how && realNote into cmd
  put "Play " before cmd
  do cmd
  repeat while the sound is not "done"
  end repeat
end mouseUp




-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=454 top=290 right=317 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 2162 / 2162
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 111111
----- HyperTalk script -----
on mouseUp
  visual effect scroll down
  go to card 1
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=19 top=293 right=315 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: to 2
----- HyperTalk script -----
on mouseUp
  visual effect scroll left fast
  go to card 2
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=106 top=190 right=212 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Beat It
----- HyperTalk script -----
on mouseUp
  global playWhat
  set hilite of button ID 4 to true
  set hilite of button ID 5 to FALSE
  set hilite of button ID 6 to FALSE
  set hilite of button ID 7 to FALSE
  set hilite of button ID 8 to FALSE
  set hilite of button ID 9 to FALSE
  set hilite of button ID 10 to FALSE
  set hilite of button ID 11 to FALSE
  set hilite of button ID 12 to FALSE
  set hilite of button ID 13 to FALSE
  set hilite of button ID 20 to FALSE
  set hilite of button ID 21 to FALSE
  put "Beat" into playWhat
  put quote before playWhat
  put quote after playWhat
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=106 top=212 right=234 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HAL
----- HyperTalk script -----
on mouseUp
  global playWhat
  set hilite of button ID 4 to FALSE
  set hilite of button ID 5 to TRUE
  set hilite of button ID 6 to FALSE
  set hilite of button ID 7 to FALSE
  set hilite of button ID 8 to FALSE
  set hilite of button ID 9 to FALSE
  set hilite of button ID 10 to FALSE
  set hilite of button ID 11 to FALSE
  set hilite of button ID 12 to FALSE
  set hilite of button ID 13 to FALSE
  set hilite of button ID 20 to FALSE
  set hilite of button ID 21 to FALSE
  put "HAL" into playWhat
  put quote before playWhat
  put quote after playWhat
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=106 top=234 right=256 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kirk Here
----- HyperTalk script -----
on mouseUp
  global playWhat
  set hilite of button ID 4 to FALSE
  set hilite of button ID 5 to FALSE
  set hilite of button ID 6 to TRUE
  set hilite of button ID 7 to FALSE
  set hilite of button ID 8 to FALSE
  set hilite of button ID 9 to FALSE
  set hilite of button ID 10 to FALSE
  set hilite of button ID 11 to FALSE
  set hilite of button ID 12 to FALSE
  set hilite of button ID 13 to FALSE
  set hilite of button ID 20 to FALSE
  set hilite of button ID 21 to FALSE
  put "Kirk" into playWhat
  put quote before playWhat
  put quote after playWhat
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=106 top=256 right=278 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Nasty Boys
----- HyperTalk script -----
on mouseUp
  global playWhat
  set hilite of button ID 4 to FALSE
  set hilite of button ID 5 to FALSE
  set hilite of button ID 6 to FALSE
  set hilite of button ID 7 to TRUE
  set hilite of button ID 8 to FALSE
  set hilite of button ID 9 to FALSE
  set hilite of button ID 10 to FALSE
  set hilite of button ID 11 to FALSE
  set hilite of button ID 12 to FALSE
  set hilite of button ID 13 to FALSE
  set hilite of button ID 20 to FALSE
  set hilite of button ID 21 to FALSE
  put "NastyBoys" into playWhat
  put quote before playWhat
  put quote after playWhat
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=106 top=278 right=298 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: No need to Fear
----- HyperTalk script -----
on mouseUp
  global playWhat
  set hilite of button ID 4 to FALSE
  set hilite of button ID 5 to FALSE
  set hilite of button ID 6 to FALSE
  set hilite of button ID 7 to FALSE
  set hilite of button ID 8 to TRUE
  set hilite of button ID 9 to FALSE
  set hilite of button ID 10 to FALSE
  set hilite of button ID 11 to FALSE
  set hilite of button ID 12 to FALSE
  set hilite of button ID 13 to FALSE
  set hilite of button ID 20 to FALSE
  set hilite of button ID 21 to FALSE
  put "Fear" into playWhat
  put quote before playWhat
  put quote after playWhat
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=277 top=188 right=210 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Beep
----- HyperTalk script -----
on mouseUp
  global playWhat
  set hilite of button ID 4 to FALSE
  set hilite of button ID 5 to FALSE
  set hilite of button ID 6 to FALSE
  set hilite of button ID 7 to FALSE
  set hilite of button ID 8 to FALSE
  set hilite of button ID 9 to TRUE
  set hilite of button ID 10 to FALSE
  set hilite of button ID 11 to FALSE
  set hilite of button ID 12 to FALSE
  set hilite of button ID 13 to FALSE
  set hilite of button ID 20 to FALSE
  set hilite of button ID 21 to FALSE
  put "Beeep" into playWhat
  put quote before playWhat
  put quote after playWhat
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=277 top=210 right=232 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: He's Dead Jim
----- HyperTalk script -----
on mouseUp
  global playWhat
  set hilite of button ID 4 to FALSE
  set hilite of button ID 5 to FALSE
  set hilite of button ID 6 to FALSE
  set hilite of button ID 7 to FALSE
  set hilite of button ID 8 to FALSE
  set hilite of button ID 9 to FALSE
  set hilite of button ID 10 to TRUE
  set hilite of button ID 11 to FALSE
  set hilite of button ID 12 to FALSE
  set hilite of button ID 13 to FALSE
  set hilite of button ID 20 to FALSE
  set hilite of button ID 21 to FALSE
  put "Dead" into playWhat
  put quote before playWhat
  put quote after playWhat
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=277 top=232 right=254 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Nasty
----- HyperTalk script -----
on mouseUp
  global playWhat
  set hilite of button ID 4 to FALSE
  set hilite of button ID 5 to FALSE
  set hilite of button ID 6 to FALSE
  set hilite of button ID 7 to FALSE
  set hilite of button ID 8 to FALSE
  set hilite of button ID 9 to FALSE
  set hilite of button ID 10 to FALSE
  set hilite of button ID 11 to TRUE
  set hilite of button ID 12 to FALSE
  set hilite of button ID 13 to FALSE
  set hilite of button ID 20 to FALSE
  set hilite of button ID 21 to FALSE
  put "Nasty" into playWhat
  put quote before playWhat
  put quote after playWhat
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=277 top=254 right=276 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Over the Rainbow
----- HyperTalk script -----
on mouseUp
  global playWhat
  set hilite of button ID 4 to FALSE
  set hilite of button ID 5 to FALSE
  set hilite of button ID 6 to FALSE
  set hilite of button ID 7 to FALSE
  set hilite of button ID 8 to FALSE
  set hilite of button ID 9 to FALSE
  set hilite of button ID 10 to FALSE
  set hilite of button ID 11 to FALSE
  set hilite of button ID 12 to TRUE
  set hilite of button ID 13 to FALSE
  set hilite of button ID 20 to FALSE
  set hilite of button ID 21 to FALSE
  put "Rainbow" into playWhat
  put quote before playWhat
  put quote after playWhat
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=277 top=276 right=298 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Underdog is Here
----- HyperTalk script -----
on mouseUp
  global playWhat
  set hilite of button ID 4 to FALSE
  set hilite of button ID 5 to FALSE
  set hilite of button ID 6 to FALSE
  set hilite of button ID 7 to FALSE
  set hilite of button ID 8 to FALSE
  set hilite of button ID 9 to FALSE
  set hilite of button ID 10 to FALSE
  set hilite of button ID 11 to FALSE
  set hilite of button ID 12 to FALSE
  set hilite of button ID 13 to TRUE
  set hilite of button ID 20 to FALSE
  set hilite of button ID 21 to FALSE
  put "Here" into playWhat
  put quote before playWhat
  put quote after playWhat
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=49 top=293 right=315 bottom=78
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: to 4
----- HyperTalk script -----
on mouseUp
  visual effect barn door close
  go to card 4
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=23 top=219 right=260 bottom=71
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Toons
----- HyperTalk script -----
on mouseUp
  visual effect barn door open
  go to card 4
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=106 top=297 right=317 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Thunder
----- HyperTalk script -----
on mouseUp
  global playWhat
  set hilite of button ID 4 to FALSE
  set hilite of button ID 5 to FALSE
  set hilite of button ID 6 to FALSE
  set hilite of button ID 7 to FALSE
  set hilite of button ID 8 to FALSE
  set hilite of button ID 9 to FALSE
  set hilite of button ID 10 to FALSE
  set hilite of button ID 11 to FALSE
  set hilite of button ID 12 to FALSE
  set hilite of button ID 13 to FALSE
  set hilite of button ID 20 to TRUE
  set hilite of button ID 21 to FALSE
  put "Thunder" into playWhat
  put quote before playWhat
  put quote after playWhat
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=277 top=297 right=319 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Yabba Dabba Doo
----- HyperTalk script -----
on mouseUp
  global playWhat
  set hilite of button ID 4 to FALSE
  set hilite of button ID 5 to FALSE
  set hilite of button ID 6 to FALSE
  set hilite of button ID 7 to FALSE
  set hilite of button ID 8 to FALSE
  set hilite of button ID 9 to FALSE
  set hilite of button ID 10 to FALSE
  set hilite of button ID 11 to FALSE
  set hilite of button ID 12 to FALSE
  set hilite of button ID 13 to FALSE
  set hilite of button ID 20 to FALSE
  set hilite of button ID 21 to TRUE
  put "Yabba" into playWhat
  put quote before playWhat
  put quote after playWhat
end mouseUp